﻿Public Class MailSettings
    Inherits SerializableClass

    Private _toAddress As String
    Public Property ToAddress() As String
        Get
            Return _toAddress
        End Get
        Set(ByVal value As String)
            _toAddress = value

            OnPropertyChanged("ToAddress")
        End Set
    End Property

    Private _fromAddress As String
    Public Property FromAddress() As String
        Get
            Return _fromAddress
        End Get
        Set(ByVal value As String)
            _fromAddress = value
            OnPropertyChanged("FromAddress")
        End Set
    End Property

    Private _smtpServer As String
    Public Property SmtpServer() As String
        Get
            Return _smtpServer
        End Get
        Set(ByVal value As String)
            _smtpServer = value
            OnPropertyChanged("SmtpServer")
        End Set
    End Property

    Private _port As Integer
    Public Property Port() As Integer
        Get
            Return _port
        End Get
        Set(ByVal value As Integer)
            _port = value
            OnPropertyChanged("Port")
        End Set
    End Property

    Public ReadOnly Property Encodings() As IList(Of String)
        Get
            Dim list = New List(Of String)
            list.Add("UTF-8")
            list.Add("Shift_JIS")
            list.Add("ISO-2022-JP")
            Return list
        End Get
    End Property

    Private _encoding As String
    Public Property Encoding() As String
        Get
            Return _encoding
        End Get
        Set(ByVal value As String)
            _encoding = value
            OnPropertyChanged("Encoding")
        End Set
    End Property

    Private _userName As String
    Public Property UserName() As String
        Get
            Return _userName
        End Get
        Set(ByVal value As String)
            _userName = value
            OnPropertyChanged("UserName")
        End Set
    End Property

    Private _password As String
    Public Property Password() As String
        Get
            Return _password
        End Get
        Set(ByVal value As String)
            _password = value
            OnPropertyChanged("Password")
        End Set
    End Property

    Private _enableSsl As Boolean
    Public Property EnableSsl() As Boolean
        Get
            Return _enableSsl
        End Get
        Set(ByVal value As Boolean)
            _enableSsl = value
            OnPropertyChanged("EnableSsl")
        End Set
    End Property

End Class
